irrtet 



MICROCOMPUTER USER'S ^ 
LIBRARY SUBMITTAL FORM no bbh 



6 



luu additional sheets if necessary I 



BCD TO BINARY CONVERSION ROUTINE 

Converts BCD value (1-8 digits) to Binary value (max. 24 bits) 



NONE 



NONE 



DE register pointing to Most Significant BCD digit 

A register has the number of BCD digits to be converted 



A register has the Most Significant 8-bits 
H and L register has the lower 16 bits 



Registers Modified: 
All 


Maximum Subroutine Nesting Level: 
1 


RAM Required: 

NONE 


Assembler/Compiler Used: 

MAC 80 


ROM Required: 

38 bytes 


Programmer: 

Chon Hock Leow 
Tektronix 




Company: Bqx 5QQ ^ Dept _ 5Q _ 447 
Beaverton, Oregon 9707 
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P 



S 8680 MACRO ASSEMBLER, VI 



PRQE 1 



. REF NO BB11 

; PROGRAM NAME BCD TO BIN ROUTINE 



* # * * * * * + * * * * * * * ** ********* 

BCD TO BIN ROUTINE 

+. :+ +: +. +: * *: :+: +: + * * * # W •■+■*; * * * * 



.; ON ENTERING THIS PROGRAM 

, DE REG POINTS TO MS BCD DIGIT 

..++ REG HAS THE NUMBER OF BCD DIGITS TO BE CONVERTED 

on e::it 

• the binary value is in a, h, l reg, with a reg having 
the ms s bits and hl reg, having the lower 16 bits 



..300 



O30U 4F 

0301 21000O 

0304 HF 

0305 CDOE03 

0308 13 

0309 OD 
O30A C205O3 
03OD 03 



BCDB I N 



LOOP 



ORG- 3O0H 

to ) C 

MOV- trr-A- 



LX'I 
XRA 



CALL 

DCR 
TNZ 
RET 



H. O 
A 

BCD 
D 

C 

LOOP 



MOVE NUMBER OF BCD DIGITS TO C REG. 
INITIAL IZE H & L RTO O 
AND A TO O 

CALL +10 ROUTINE 

POINT TO NEXT LOWER BCD DIGIT 

IF CONVERSION IS NOT FINISHED, KEEP GO IN 



i HQ ROUTINE 



BCD 



03OE D5 
03OF ES 

0310 47 

0311 29 

0312 8F 

0313 29 

0314 8F 

0315 Dl 

0316 19 
317 88 

0318 29 

0319 8F 



PUSH 

PUSH 

MOV 

DAD 

ADC: 

DAD 

ADC 

POP 

DAD 

ADC 

DAL' 

ADC 



D 
H 

B, A 

H 

H 

H 

A 

D 

D 

B 

H 

A 



SAVE DE POINTER IN STACK 

SAVE ACCUMULATED LOWER 16 BITS 

SAVE A IN B REG, 

AHL - MHL i 2 

AHL <- AHL * 4 

RESTORE OLD LOWER 16 BITS TO DE REG, 
AHL O AHL * 5 

AHL O AHL «± 10 
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•-•fel-IBLEP. VI i. 




PRGE 2 


ft" : •• 




MOV 


B, H 


• SRVE H IN B PEG • 





r i 


POP 


D 


■ RESTORE BCD DIGIT 


ft 1 


| H 


lC'h: : 


[.. 


, fjir t meu r< i o t t 

• '—1 1 — 1 1*1 — t- 4 L- A '_! .I 1 






H[-D 


L. 


• HDD IN NEW C ■ I G I 7 


a* 1 1 


r ^ 


MOV 


1. • H 




\- ' * 




MOV 


R. H 






I pl'll! 


HI T 


M 


Hr<ri tm r hppv 






MOV 


H • H 




r 




MOV 


H • B 








Ml" [ 





• HDD IN CHPPV 


c • 


C 9 


PET 










END 







V 
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